﻿Namespace SRAGWM
    Public Class Range

        Dim _MagFact
        Dim _Maximum, _Minimum As Integer

        Property MagFact()
            Get
                Return _MagFact
            End Get
            Set(ByVal value)
                _MagFact = value
            End Set
        End Property

        Property Maximum()
            Get
                Return _Maximum
            End Get
            Set(ByVal value)
                _Maximum = value
            End Set
        End Property

        Property Minimum()
            Get
                Return _Minimum
            End Get
            Set(ByVal value)
                _Minimum = value
            End Set
        End Property

        Public Sub New(ByVal pMagFact As Object, ByVal pMaximum As Integer, ByVal pMinimum As Integer)

            _MagFact = pMagFact
            _Maximum = pMaximum
            _Minimum = pMinimum

        End Sub
    End Class
End Namespace
